-- background: 26553 from stack: in.4
-- bmap block id: 26783
-- flags: 0000
-- background id: 0
-- name: Print Routines


-- part 1 (button)
-- low flags: 00
-- high flags: A003
-- rect: left=205 top=310 right=332 bottom=305
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: I'm Finished
----- HyperTalk script -----
on mouseUp
  pop card
end mouseUp



-- part 2 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=202 top=216 right=278 bottom=308
-- title width / last selected line: 0
-- icon id / first selected line: 31705 / 31705
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Incomplete Action
----- HyperTalk script -----
on mouseUp
  ask "Save report as file name:" with "IncompleteActionItem.Txt"
  if it is empty then
    exit mouseUp
  else
    put it into reportString
    set lockScreen to true
    go to card 1 of background "Action Items"
    open file reportString
    set cursor to 4
    write "INCOMPLETE ACTION ITEMS" & return & return to file reportString
    repeat number of cards - 11
      If field 1 is not empty and field 3 is "F" then
        write "START DATE:" & tab & field 2 & return & "DUE DATE:" & tab & field 6 & return & return & tab & field 1 & return & return to file reportString
        doMenu Next
      else
        doMenu Next
      end if
    end repeat
    close file reportString
  end if
  go to first card of background "Print Routines"
  set lockScreen to false
end mouseUp



-- part 3 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=18 top=216 right=278 bottom=115
-- title width / last selected line: 0
-- icon id / first selected line: 28644 / 28644
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Completed Action
----- HyperTalk script -----
on mouseUp
  ask "Save report as file name:" with "CompletedActionItem.Txt"
  if it is empty then
    exit mouseUp
  else
    put it into reportString
    set lockScreen to true
    go to card 1 of background "Action Items"
    open file reportString
    set cursor to 4
    write "COMPLETED ACTION ITEMS" & return & return to file reportString
    repeat for number of cards - 11
      If field 1 is not empty and field 3 is "T" then
        write "START DATE:" & tab & field 2 & return & "DUE DATE:" & tab & field 6 & return & return & tab & field 1 & return & return to file reportString
        doMenu Next
      else
        doMenu Next
      end if
    end repeat
    close file reportString
  end if
  go to first card of background "Print Routines"
  set lockScreen to false

end mouseUp



-- part 4 (button)
-- low flags: 00
-- high flags: A001
-- rect: left=383 top=216 right=278 bottom=489
-- title width / last selected line: 0
-- icon id / first selected line: 27032 / 27032
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: All Action
----- HyperTalk script -----
on mouseUp
  ask "Save report as file name:" with "AllActionItem.Txt"
  if it is empty then
    exit mouseUp
  else
    put it into reportString
    set lockScreen to true
    go to card 1 of background "Action Items"
    open file reportString
    set cursor to 4
    write "ALL ACTION ITEMS" & return & return to file reportString
    repeat number of cards - 11
      If field 1 is not empty then
        write "START DATE:" & tab & field 2 & return & "DUE DATE:" & tab & field 6 & return & return & tab & field 1 & return & return to file reportString
        doMenu Next
      else
        doMenu Next
      end if
    end repeat
    close file reportString
  end if
  go to first card of background "Print Routines"
  set lockScreen to false

end mouseUp



-- part 5 (field)
-- low flags: 01
-- high flags: 2004
-- rect: left=17 top=24 right=188 bottom=491
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 251
-- text size: 10
-- style flags: 0
-- line height: 13
-- part name: Print Routines Text